home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 19
/
Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso
/
Aminet
/
comm
/
cnet
/
cnet_toolkit.lha
/
routines
/
LNOISE
< prev
next >
Wrap
Text File
|
1997-04-05
|
1KB
|
13 lines
LNOISE:;arg p,d;a=time("s");getuser 1400660;if bittst(reverse(d2c(result,4)),15)=0 then exit
if p="###PANIC" then exit;getuser word("2225094 2227782",cv+1);hp=result;if p>hp|p<0|datatype(p,"n")=0 then exit
a.0=d2c(6)"s1ou797¾s07i7";a.1=d2c(6)"¾";a.2=d2c(6)"«¾«¾"d2c(6)"y«¾®«¾7r"
a.3="®6¾½¤80y9ohj;"d2c(12)";";a.4=d2c(13)":OJl;;ø·";a.5=d2c(12)d2c(8)"¡¾½¼©w1µþð65 ®ð7"
a.6="54®© 7 08o 7pi"d2c(8)"·¡";a.7="¾µ¤P*o¡¤þ·7ue64s¼¢³ G";a.8="DXc ."d2c(11)"LJ. ;o8"
a.9="n"d2c(12)"¡¾½#©ð¢e";a.10="¾¼43 5"d2c(4)"i6yYth98h¤«y)*Ou"d2c(7)"9i76y"
a.11=d2c(6)"¡¾½f«¾s1¼®®«¾5»·y9i-»«s0098þ·r·«¾«¾«¾¡";a.12="utg9797n1"d2c(2)"¾þ"
a.13="T«¡¾þ®hgb¸ºmnªº vh,"d2c(13)"vbvÇn";a.14=d2c(2)" c Vxgedy";a.15="trd¡¤w1¡µðµþðç "d2c(4)"dd"
a.16=""d2c(4)"½þµðn1"d2c(4)"þµð";a.17="¤þ¡µðiy"d2c(6)""d2c(6)d2c(6)""d2c(6)"ð";a.18=d2c(6)d2c(4)d2c(6)"uy"d2c(7)
address ("CNETREXX"p);do random(4,18);l=random(0,18);sendstring a.l;end
if d=1 then dropcarrier;do random(4,18);l=random(0,18);sendstring a.l;end
bufferflush;return